home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / dzsum1.z / dzsum1
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. DDDDZZZZSSSSUUUUMMMM1111((((3333FFFF))))                                                          DDDDZZZZSSSSUUUUMMMM1111((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      DZSUM1 - take the sum of the absolute values of a complex vector and
  10.      returns a double precision result
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX )
  14.  
  15.          INTEGER      INCX, N
  16.  
  17.          COMPLEX*16   CX( * )
  18.  
  19. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  20.      DZSUM1 takes the sum of the absolute values of a complex vector and
  21.      returns a double precision result.
  22.  
  23.      Based on DZASUM from the Level 1 BLAS.
  24.      The change is to use the 'genuine' absolute value.
  25.  
  26.      Contributed by Nick Higham for use with ZLACON.
  27.  
  28.  
  29. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  30.      N       (input) INTEGER
  31.              The number of elements in the vector CX.
  32.  
  33.      CX      (input) COMPLEX*16 array, dimension (N)
  34.              The vector whose elements will be summed.
  35.  
  36.      INCX    (input) INTEGER
  37.              The spacing between successive values of CX.  INCX > 0.
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.